home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
fglqbx10.zip
/
13-03.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
380b
|
17 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
PRINT "Mary Had a Little Lamb..."
FGmusic "T150 L8 EDCDEEE P DDD P EGG P EDCDEEE L16 P L8 EDDEDC$"
FGwaitfor 18
PRINT "up the scale in two octaves..."
FGmusic "L16 CC#DD#EFF#GG#AA#B O+ CC#DD#EFF#GG#AA#B$"
FGwaitfor 18
PRINT "Beethoven's Fifth Symphony..."
FGmusic "T180 O2 L2 P L8 P GGG L2 D# L24 P L8 P FFF L2 D$"
END